Handle remote file names in cmuscheme.el

* lisp/cmuscheme.el (scheme-load-file, scheme-compile-file): Use
'file-local-name' to handle file names on remote systems.
(Bug#79163)

Copyright-paperwork-exempt: yes

diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el
index 6528ac3fb7dfdeb1dfbdab59d9e2ccc8e9c81938..35198e79e73ef6bda5ddd95444599c105ddff9cb 100644 (file)
--- a/lisp/cmuscheme.el
+++ b/lisp/cmuscheme.el
@@ -416,7 +416,7 @@ in the next one.")
   (setq scheme-prev-l/c-dir/file (cons (file-name-directory    file-name)
                                       (file-name-nondirectory file-name)))
   (comint-send-string (scheme-proc) (concat "(load \""
-                                           file-name
+                                           (file-local-name file-name)
                                            "\")\n")))
 
 (defun scheme-compile-file (file-name)
@@ -430,7 +430,7 @@ in the next one.")
   (setq scheme-prev-l/c-dir/file (cons (file-name-directory    file-name)
                                       (file-name-nondirectory file-name)))
   (comint-send-string (scheme-proc) (concat "(compile-file \""
-                                           file-name
+                                           (file-local-name file-name)
                                            "\")\n")))
 
 \f